home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / wallroutine3.chipmem < prev    next >
Text File  |  1997-01-31  |  26KB  |  1,838 lines
  1. leftclip: dc.w 0
  2. rightclip: dc.w 0
  3. deftopclip: dc.w 0
  4. defbotclip: dc.w 0
  5. leftclipandlast: dc.w 0
  6.  
  7. SCALE MACRO
  8.  dc.w 64*0
  9.  dc.w 64*1
  10.  dc.w 64*1
  11.  dc.w 64*2
  12.  dc.w 64*2
  13.  dc.w 64*3
  14.  dc.w 64*3
  15.  dc.w 64*4
  16.  dc.w 64*4
  17.  dc.w 64*5
  18.  dc.w 64*5
  19.  dc.w 64*6
  20.  dc.w 64*6
  21.  dc.w 64*7
  22.  dc.w 64*7
  23.  dc.w 64*8
  24.  dc.w 64*8
  25.  dc.w 64*9
  26.  dc.w 64*9
  27.  dc.w 64*10
  28.  dc.w 64*10
  29.  dc.w 64*11
  30.  dc.w 64*11
  31.  dc.w 64*12
  32.  dc.w 64*12
  33.  dc.w 64*13
  34.  dc.w 64*13
  35.  dc.w 64*14
  36.  dc.w 64*14
  37.  dc.w 64*15
  38.  dc.w 64*15
  39.  dc.w 64*16
  40.  dc.w 64*16
  41.  dc.w 64*17
  42.  dc.w 64*17
  43.  dc.w 64*18
  44.  dc.w 64*18
  45.  dc.w 64*19
  46.  dc.w 64*19
  47.  dc.w 64*20
  48.  dc.w 64*20
  49.  dc.w 64*21
  50.  dc.w 64*21
  51.  dc.w 64*22
  52.  dc.w 64*22
  53.  dc.w 64*23
  54.  dc.w 64*23
  55.  dc.w 64*24
  56.  dc.w 64*24
  57.  dc.w 64*25
  58.  dc.w 64*25
  59.  dc.w 64*26
  60.  dc.w 64*26
  61.  dc.w 64*27
  62.  dc.w 64*27
  63.  dc.w 64*28
  64.  dc.w 64*28
  65.  dc.w 64*29
  66.  dc.w 64*29
  67.  dc.w 64*30
  68.  dc.w 64*30
  69.  dc.w 64*31
  70.  dc.w 64*31
  71.  dc.w 64*31
  72.  dc.w 64*31
  73.  dc.w 64*31
  74.  dc.w 64*31
  75.  dc.w 64*31
  76.  dc.w 64*31
  77.  dc.w 64*31
  78.  dc.w 64*31
  79.  dc.w 64*31
  80.  dc.w 64*31
  81.  dc.w 64*31
  82.  dc.w 64*31
  83.  dc.w 64*31
  84.  dc.w 64*31
  85.  dc.w 64*31
  86.  dc.w 64*31
  87.  dc.w 64*31
  88.  dc.w 64*31
  89.  ENDM
  90.  
  91. *********************************** 
  92.  
  93. * The screendivide routine is simpler
  94. * using a0=left pixel
  95. * a2= right pixel
  96. * d0= left dist
  97. * d2= right dist
  98. * d4 = left strip
  99. * d5 = right strip
  100.  
  101. * (a0)=leftx
  102. * 2(a0)=rightx
  103.  
  104. * 4(a0)=leftbm
  105. * 6(a0)=rightbm
  106.  
  107. * 8(a0)=leftdist
  108. * 10(a0)=rightdist
  109.  
  110. * 12(a0)=lefttop
  111. * 14(a0)=righttop
  112.  
  113. * 16(a0)=leftbot
  114. * 18(a0)=rightbot
  115.  
  116.  
  117. Doleftend:
  118.  
  119.  move.w leftclip,d0
  120.  sub.w #1,d0
  121.  move.w d0,leftclipandlast
  122.  
  123.  
  124.  move.w (a0),d0
  125.  move.w 2(a0),d1
  126.  sub.w d0,d1
  127.  bge.s sometodraw
  128.  rts
  129. sometodraw:
  130.  move.w itertab(pc,d1.w*4),d7
  131.  swap d0
  132.  move.w itertab+2(pc,d1.w*4),d6
  133.  clr.w d0
  134.  swap d1
  135.  clr.w d1
  136.  asr.l d6,d1
  137.  move.l d1,(a0)
  138.  
  139.  bra pstit
  140.  
  141. itertab:
  142.  incbin "iterfile"
  143.  
  144. pstit:
  145.  
  146.  moveq #0,d1
  147.  move.w 4(a0),d1
  148.  moveq #0,d2
  149.  move.w 6(a0),d2
  150.  sub.w d1,d2
  151.  swap d1
  152.  swap d2
  153.  asr.l d6,d2
  154.  move.l d2,4(a0)
  155.  
  156.  moveq #0,d2
  157.  move.w 8(a0),d2
  158.  moveq #0,d3
  159.  move.w 10(a0),d3
  160.  sub.w d2,d3
  161.  swap d2
  162.  swap d3
  163.  asr.l d6,d3
  164.  move.l d3,8(a0)
  165.  
  166.  moveq #0,d3
  167.  move.w 12(a0),d3
  168.  moveq #0,d4
  169.  move.w 14(a0),d4
  170.  sub.w d3,d4
  171.  swap d3
  172.  swap d4
  173.  asr.l d6,d4
  174.  move.l d4,12(a0)
  175.  
  176.  moveq #0,d4
  177.  move.w 16(a0),d4
  178.  moveq #0,d5
  179.  move.w 18(a0),d5
  180.  sub.w d4,d5
  181.  swap d4
  182.  swap d5
  183.  asr.l d6,d5
  184.  move.l d5,16(a0)
  185.  
  186.  
  187. *** Gouraud shading ***
  188.  moveq #0,d5
  189.  move.w 26(a0),d5
  190.  sub.w 24(a0),d5
  191.  add.w d5,d5
  192.  swap d5
  193.  asr.l d6,d5
  194.  move.l d5,28(a0)
  195.  moveq #0,d5
  196.  move.w 24(a0),d5
  197.  add.w d5,d5
  198.  swap d5
  199.  
  200.  bra screendivide
  201.  
  202. itercount: dc.w 0
  203.  
  204. screendividethru:
  205.  
  206. .scrdrawlop:
  207.  
  208.  move.w (a0)+,d0
  209.  move.l frompt,a3
  210.  adda.w .scrintocop(pc,d0.w*2),a3
  211.  move.l (a0)+,d1
  212.  
  213.  bra .pastscrinto
  214.  
  215. .scrintocop:
  216.  incbin "XTOCOPX"
  217.  
  218. .pastscrinto 
  219.  
  220.  swap d1
  221.  
  222.  move.w d1,d6
  223.  and.w HORAND,d6
  224.  move.l (a0)+,d2
  225.  swap d2
  226.  add.w fromtile(pc),d6
  227.  add.w d6,d6
  228.  move.w d6,a5
  229.  move.l (a0)+,d3
  230.  swap d3
  231.  add.l #divthreetab,a5
  232.  move.w (a5),StripData
  233.  
  234.  move.l ChunkAddr,a5
  235.  moveq #0,d6
  236.  move.b StripData,d6
  237.  add.w d6,d6
  238.  move.w VALSHIFT,d4
  239.  asl.w d4,d6
  240.  add.w d6,a5
  241.  move.l (a0)+,d4
  242.  swap d4
  243.  move.w d2,d6
  244. ***************************
  245. * old version
  246.  asr.w #7,d6
  247. ***************************
  248. ; asr.w #3,d6
  249. ; sub.w #4,d6
  250. ; cmp.w #6,d6
  251. ; blt.s tstbrbr
  252. ; move.w #6,d6
  253. ;tstbrbr:
  254. ***************************
  255.  add.w angbright(pc),d6
  256.  bge.s .brnotneg
  257.  moveq #0,d6
  258. .brnotneg
  259.  cmp.w #32,d6
  260.  blt.s .brnotpos
  261.  move.w #32,d6
  262. .brnotpos
  263.  move.l PaletteAddr,a2
  264.  move.l a2,a4
  265.  add.w .ffscrpickhowbright(pc,d6*2),a2
  266. ; and.b #$fe,d6
  267. ; add.w .ffscrpickhowbright(pc,d6*2),a4
  268.  
  269. ; btst #0,d0
  270. ; beq .nobrightswap
  271. ; exg a2,a4
  272. ;.nobrightswap:
  273.  
  274.  move.w d7,-(a7)
  275.  bsr ScreenWallstripdrawthru
  276.  move.w (a7)+,d7
  277.  
  278.  dbra d7,.scrdrawlop
  279.  rts
  280.  
  281. .ffscrpickhowbright:
  282.  SCALE
  283.  
  284.  
  285. ***************************
  286.  
  287. screendivide:
  288.  
  289.  or.l #$ffff0000,d7
  290.  move.w leftclipandlast(pc),d6
  291.  move.l #WorkSpace,a2
  292.  
  293.  move.l (a0),a3
  294.  move.l 4(a0),a4
  295.  move.l 8(a0),a5
  296.  move.l 12(a0),a6
  297.  move.l 16(a0),a1
  298.  move.l 28(a0),a0
  299.  
  300. scrdivlop:
  301.  
  302.  swap d0
  303.  cmp.w d6,d0
  304.  bgt scrnotoffleft
  305.  swap d0
  306.  add.l a4,d1
  307.  add.l a5,d2
  308.  add.l a6,d3
  309.  add.l a1,d4
  310.  add.l a3,d0
  311.  add.l a0,d5
  312.  dbra d7,scrdivlop
  313.  rts
  314.  
  315. scrnotoffleft:
  316.  
  317.  move.w d0,d6
  318.  
  319.  cmp.w rightclip(pc),d0
  320.  bge.s outofcalc
  321.  
  322. scrnotoffright:
  323.  
  324.  
  325.  move.w d0,(a2)+
  326.  move.l d1,(a2)+
  327.  move.l d2,(a2)+
  328.  move.l d3,(a2)+
  329.  move.l d4,(a2)+
  330.  move.l d5,(a2)+
  331.  swap d0
  332.  add.l a3,d0
  333.  add.l a4,d1
  334.  add.l a5,d2
  335.  add.l a6,d3
  336.  add.l a1,d4
  337.  add.l a0,d5
  338.  add.l #$10000,d7
  339.  dbra d7,scrdivlop
  340.  
  341. outofcalc:
  342.  swap d7
  343.  tst.w d7
  344.  bge.s .somethingtodraw
  345.  rts
  346. .somethingtodraw:
  347.  
  348.  move.l #consttab,a1
  349.  move.l #WorkSpace,a0
  350.  
  351. ; tst.b seethru
  352. ; bne screendividethru
  353.  
  354. scrdrawlop:
  355.  
  356.  move.w (a0)+,d0
  357.  move.l frompt,a3
  358.  adda.w scrintocop(pc,d0.w*2),a3
  359.  move.l (a0)+,d1
  360.  
  361.  bra pastscrinto
  362.  
  363. middleline:
  364.  dc.w 0
  365.  
  366. scrintocop:
  367.  incbin "XTOCOPX"
  368. prot4: dc.w 0
  369.  
  370. fromtile: dc.l 0
  371. fromquartertile: dc.l 0
  372. swapbrights: dc.w 0
  373. angbright: dc.w 0
  374.  
  375. leftside: dc.b 0
  376. rightside: dc.b 0
  377. firstleft: dc.w 0
  378.  
  379. pastscrinto 
  380.  
  381.  swap d1
  382.  
  383.  move.w d1,d6
  384.  and.w HORAND,d6
  385.  move.l (a0)+,d2
  386.  swap d2
  387.  add.w fromtile(pc),d6
  388.  add.w d6,d6
  389.  move.w d6,a5
  390.  move.l (a0)+,d3
  391.  swap d3
  392.  add.l #divthreetab,a5
  393.  move.w (a5),StripData
  394.  
  395.  move.l ChunkAddr,a5
  396.  moveq #0,d6
  397.  move.b StripData,d6
  398.  add.w d6,d6
  399.  move.w VALSHIFT,d4
  400.  asl.w d4,d6
  401.  add.w d6,a5
  402.  move.l (a0)+,d4
  403.  swap d4
  404.  move.w d2,d6
  405. ***************************
  406. * old version
  407.  asr.w #7,d6
  408. ***************************
  409. ; asr.w #3,d6
  410. ; sub.w #4,d6
  411. ; cmp.w #6,d6
  412. ; blt.s tstbrbr
  413. ; move.w #6,d6
  414. ;tstbrbr:
  415. ***************************
  416.  move.l (a0)+,d5
  417.  swap d5
  418.  ext.w d5
  419.  add.w d5,d6
  420.  bge.s .brnotneg
  421.  moveq #0,d6
  422. .brnotneg
  423.  cmp.w #64,d6
  424.  blt.s .brnotpos
  425.  move.w #64,d6
  426. .brnotpos
  427.  move.l PaletteAddr,a2
  428.  move.l a2,a4
  429.  add.w ffscrpickhowbright(pc,d6*2),a2
  430. ; and.b #$fe,d6
  431. ; add.w ffscrpickhowbright(pc,d6*2),a4
  432.  
  433. ; btst #0,d0
  434. ; beq .nobrightswap
  435. ; exg a2,a4
  436. ;.nobrightswap:
  437.  
  438.  move.w d7,-(a7)
  439.  bsr ScreenWallstripdraw
  440.  move.w (a7)+,d7
  441.  
  442. toosmall:
  443.  
  444.  dbra d7,scrdrawlop
  445.  
  446.  rts
  447.  
  448. ffscrpickhowbright:
  449.  SCALE
  450.  
  451. divthreetab:
  452. val SET 0
  453.  REPT 130
  454.  dc.b val,0
  455.  dc.b val,1
  456.  dc.b val,2
  457. val SET val+1
  458.  ENDR
  459.  
  460. StripData: dc.w 0
  461.  
  462. * using a0=left pixel
  463. * a2= right pixel
  464. * d0= left height
  465. * d2= right height
  466. * d4 = left strip
  467. * d5 = right strip
  468.  
  469.  
  470. * Routine to draw a wall;
  471. * pass it X and Z coords of the endpoints
  472. * and the start and end length, and a number
  473. * representing the number of the wall.
  474.  
  475. * a0=x1 d1=z1 a2=x2 d3=z2
  476. * d4=sl d5=el
  477. * a1 = strip buffer
  478.  
  479. store: ds.l 500
  480.  
  481. ******************************************************************
  482.  
  483. * Curve drawing routine. We have to know:
  484. * The top and bottom of the wall
  485. * The point defining the centre of the arc
  486. * the point defining the starting point of the arc
  487. * the start and end angles of the arc
  488. * The start and end positions along the bitmap of the arc
  489. * Which bitmap to use for the arc
  490.  
  491. xmiddle: dc.w 0
  492. zmiddle SET 2
  493.  dc.w 0
  494. xradius SET 4
  495.  dc.w 0
  496. zradius SET 6
  497.  dc.w 0
  498. startbitmap SET 8
  499.  dc.w 0
  500. bitmapcounter SET 10
  501.  dc.w 0
  502. brightmult SET 12
  503.  dc.w 0
  504. angadd SET 14
  505.  dc.l 0
  506. xmiddlebig SET 18
  507.  dc.l 0
  508. basebright SET 22
  509.  dc.w 0
  510. shift SET 24
  511.  dc.w 0
  512. count SET 26
  513.  dc.w 0
  514.  
  515. subdividevals:
  516.  dc.w 2,4
  517.  dc.w 3,8
  518.  dc.w 4,16
  519.  dc.w 5,32
  520.  dc.w 6,64
  521.  
  522. CurveDraw:
  523.  
  524.  move.w (a0)+,d0    ; centre of rotation
  525.  move.w (a0)+,d1    ; point on arc
  526.  move.l #Rotated,a1
  527.  move.l #xmiddle,a2
  528.  move.l (a1,d0.w*8),d2
  529.  move.l d2,18(a2)
  530.  asr.l #7,d2
  531.  move.l (a1,d1.w*8),d4
  532.  asr.l #7,d4
  533.  sub.w d2,d4
  534.  move.w d2,(a2)
  535.  move.w d4,4(a2)
  536.  move.w 6(a1,d0.w*8),d2
  537.  move.w 6(a1,d1.w*8),d4
  538.  sub.w d2,d4
  539.  move.w d2,2(a2)
  540.  asr.w #1,d4
  541.  move.w d4,6(a2)
  542.  move.w (a0)+,d4    ; start of bitmap
  543.  move.w (a0)+,d5    ; end of bitmap
  544.  move.w d4,8(a2)
  545.  sub.w d4,d5
  546.  move.w d5,10(a2)
  547.  move.w (a0)+,d4
  548.  ext.l d4
  549.  move.l d4,14(a2)
  550.  move.w (a0)+,d4
  551.  move.l #subdividevals,a3
  552.  move.l (a3,d4.w*4),shift(a2)
  553.  
  554.  move.l #walltiles,a3
  555.  add.l (a0)+,a3
  556.  adda.w wallyoff,a3
  557.  move.l a3,fromtile
  558.  move.w (a0)+,basebright(a2)
  559.  move.w (a0)+,brightmult(a2)
  560.  move.l (a0)+,topofwall
  561.  move.l (a0)+,botofwall
  562.  move.l yoff,d6
  563.  sub.l d6,topofwall
  564.  sub.l d6,botofwall
  565.  
  566.  move.l #databuffer,a1
  567.  move.l #SineTable,a3
  568.  lea 2048(a3),a4
  569.  moveq #0,d0
  570.  moveq #0,d1
  571.  move.w count(a2),d7
  572. DivideCurve
  573.  move.l d0,d2
  574.  move.w shift(a2),d4
  575.  asr.l d4,d2
  576.  move.w (a3,d2.w*2),d4
  577.  move.w d4,d5
  578.  move.w (a4,d2.w*2),d3
  579.  move.w d3,d6
  580.  muls.w 4(a2),d3
  581.  muls.w 6(a2),d4
  582.  muls.w 4(a2),d5
  583.  muls.w 6(a2),d6
  584.  sub.l d4,d3
  585.  add.l d6,d5
  586.  asl.l #2,d5
  587.  asr.l #8,d3
  588.  add.l 18(a2),d3
  589.  swap d5
  590.  move.w basebright(a2),d6
  591.  move.w brightmult(a2),d4
  592.  muls d5,d4
  593.  swap d4
  594.  add.w d4,d6
  595.  
  596.  add.w 2(a2),d5
  597.  move.l d3,(a1)+
  598.  move.w d5,(a1)+
  599.  move.w d1,d2
  600.  move.w shift(a2),d4
  601.  asr.w d4,d2
  602.  add.w 8(a2),d2
  603.  move.w d2,(a1)+
  604.  move.w d6,(a1)+
  605.  
  606.  add.l 14(a2),d0  
  607.  add.w 10(a2),d1
  608.  dbra d7,DivideCurve
  609.  
  610.  move.l a0,-(a7)
  611.  
  612. ; move.w #31,d6
  613. ; move.l #0,d3
  614. ; move.l #stripbuffer,a4
  615. ;.emptylop:
  616. ; move.l d3,(a4)+
  617. ; dbra d6,.emptylop
  618.  
  619.  bsr curvecalc
  620.  
  621.  move.l (a7)+,a0
  622.  
  623.  rts
  624.  
  625. prot3: dc.w 0
  626.  
  627. curvecalc:
  628.  move.l #databuffer,a1
  629.  move.w count(a2),d7
  630.  subq #1,d7
  631. .findfirstinfront:
  632.  move.l (a1)+,d1
  633.  move.w (a1)+,d0
  634.  bgt.s .foundinfront
  635.  move.w (a1)+,d4
  636.  move.w (a1)+,d6
  637.  dbra d7,.findfirstinfront
  638. ; CACHE_ON d2
  639.  rts    ; no two points were in front
  640.  
  641. .foundinfront:
  642.  move.w (a1)+,d4
  643.  move.w (a1)+,d6
  644.  ; d1=left x, d4=left end, d0=left dist
  645.  ; d6=left angbright 
  646.  
  647.  divs d0,d1
  648.  add.w #47,d1
  649.  
  650.  move.l topofwall(pc),d5
  651.  divs d0,d5
  652.  add.w #40,d5
  653.  move.w d5,strtop
  654.  move.l botofwall(pc),d5
  655.  divs d0,d5
  656.  add.w #40,d5
  657.  move.w d5,strbot
  658.  
  659. ; CACHE_OFF d2
  660.  
  661. .computeloop:
  662.  move.w 4(a1),d2
  663.  bgt.s .infront
  664.  
  665. ; addq #8,a1
  666. ; dbra d7,.findfirstinfront
  667.  
  668. ; CACHE_ON d2
  669.  rts
  670.  
  671. .infront:
  672.  move.l #store,a0
  673.  move.l (a1),d3
  674.  move.w 6(a1),d5
  675.  add.w 8(a1),d6
  676.  asr.w #1,d6
  677.  move.w d6,angbright
  678.  divs d2,d3
  679.  add.w #47,d3
  680.  move.w strtop(pc),12(a0)
  681.  move.w strbot(pc),16(a0)
  682.  move.l topofwall(pc),d6
  683.  divs d2,d6
  684.  add.w #40,d6
  685.  move.w d6,strtop
  686.  move.w d6,14(a0)
  687.  move.l botofwall(pc),d6
  688.  divs d2,d6
  689.  add.w #40,d6
  690.  move.w d6,strbot
  691.  move.w d6,18(a0)
  692.  move.w d3,2(a1)
  693.  blt.s .alloffleft
  694.  cmp.w #95,d1
  695.  bgt.s .alloffleft
  696.  
  697.  cmp.w d1,d3
  698.  blt.s .alloffleft
  699.  
  700.  move.w d1,(a0)
  701.  move.w d3,2(a0)
  702.  move.w d4,4(a0)
  703.  move.w d5,6(a0)
  704.  move.w d0,8(a0)
  705.  move.w d2,10(a0)
  706.  move.w d7,-(a7)
  707.  move.w #maxscrdiv,d7
  708.  bsr Doleftend
  709.  move.w (a7)+,d7
  710.  
  711. .alloffleft:
  712.  
  713.  move.l (a1)+,d1
  714.  move.w (a1)+,d0
  715.  move.w (a1)+,d4
  716.  move.w (a1)+,d6
  717.  
  718.  dbra d7,.computeloop
  719.  
  720. .alloffright:
  721. ; CACHE_ON d2
  722.  rts
  723.  
  724. ;protcheck:
  725. ; sub.l #53624,a3
  726. ; add.l #2345215,a2
  727. ; lea passspace-$30000(pc),a1
  728. ; add.l #$30000,a1
  729. ; lea startpass(pc),a5
  730. ; move.w #endpass-startpass-1,d1
  731. ;copypass:
  732. ; move.b (a5)+,(a1)+
  733. ; dbra d1,copypass
  734. ; sub.l a5,a5
  735. ; lea passspace-$30000(pc),a1
  736. ; add.l #$30000,a1
  737. ; jsr (a1)
  738. ; lea passspace-$30000(pc),a1
  739. ; add.l #$30000,a1
  740. ; lea startpass(pc),a5
  741. ; move.w #(endpass-startpass)/2-1,d1
  742. ;erasepass:
  743. ; move.w -(a5),(a1)+
  744. ; dbra d1,erasepass
  745. ; sub.l a5,a5
  746. ; sub.l a1,a1
  747. ; eor.l #$af594c72,d0
  748. ; sub.l #123453986,a4
  749. ; move.l d0,(a4)
  750. ; add.l #123453986,a4
  751. ; move.l #0,d0
  752. ; sub.l #2345215,a2
  753. ; jsr (a2)
  754. ; sub.l a2,a2
  755. ; eor.l #$af594c72,d0
  756. ; sub.l #123453986,a4
  757. ; move.l (a4),d1
  758. ; add.l #123453986,a4
  759. ; cmp.l d1,d0
  760. ; bne.s notrightt
  761. ; add.l #53624,a3
  762. ; move.w #9,d7
  763. ;sayitsok:
  764. ; move.l (a3)+,a2
  765. ; add.l #78935450,a2
  766. ; st (a2)
  767. ; dbra d7,sayitsok
  768. ;notrightt:
  769. ; sub.l a3,a3
  770. ;nullit:
  771. ; rts
  772. ; 
  773. ; incbin "ab3:includes/protroutencoded"
  774.  
  775. endprot:
  776.  
  777. ******************************************************************
  778.  
  779. iters: dc.w 0
  780. multcount: dc.w 0
  781.  
  782. walldraw:
  783.  
  784.  tst.w d1
  785.  bgt.s oneinfront1
  786.  tst.w d3
  787.  bgt.s oneinfront
  788.  rts
  789.  
  790. oneinfront1
  791.  tst.w d3
  792.  ble.s oneinfront
  793. ; Bothinfront!
  794.  
  795.  nop
  796.  
  797. oneinfront
  798.  
  799.  move.w #16,d7
  800.  move.w #2,d6
  801.  
  802.  move.w d3,d0
  803.  sub.w d1,d0
  804.  bge.s notnegzdiff
  805.  neg.w d0
  806. notnegzdiff
  807.  cmp.w #1024,d0
  808.  blt.s nd01
  809.  add.w d7,d7
  810.  add.w #1,d6
  811. nd01:
  812.  cmp.w #512,d0
  813.  blt.s nd0 
  814.  add.w d7,d7
  815.  add.w #1,d6
  816.  bra nha
  817. nd0:
  818.  
  819.  cmp.w #256,d0
  820.  bgt.s nh1
  821.  asr.w #1,d7
  822.  subq #1,d6
  823. nh1:
  824.  cmp.w #128,d0
  825.  bgt.s nh2
  826.  asr.w #1,d7
  827.  subq #1,d6
  828. nh2:
  829.  
  830. nha:
  831.  
  832.  move.w d3,d0
  833.  cmp.w d1,d3
  834.  blt.s rightnearest
  835.  move.w d1,d0
  836. rightnearest:
  837.  cmp.w #64,d0
  838.  bgt.s nd1
  839.  addq #1,d6
  840.  add.w d7,d7
  841. nd1:
  842.  
  843.  cmp.w #128,d0
  844.  blt.s nh3
  845.  asr.w #1,d7
  846.  subq #1,d6
  847.  blt.s nh3
  848.  cmp.w #256,d0
  849.  blt.s nh3
  850.  asr.w #1,d7
  851.  subq #1,d6
  852. nh3:
  853.  move.w d6,iters
  854.  subq #1,d7
  855.  move.w d7,multcount
  856.  
  857.  move.l #databuffer,a3
  858.  move.l a0,d0
  859.  move.l a2,d2
  860.  
  861.  move.l d0,(a3)+
  862.  add.l d2,d0
  863.  move.w d1,(a3)+
  864.  asr.l #1,d0
  865.  move.w d4,(a3)+
  866.  
  867.  move.w leftwallbright,d6
  868.  move.w d6,(a3)+
  869.  
  870.  add.w d5,d4
  871.  move.l d0,(a3)+
  872.  add.w d3,d1
  873.  asr.w #1,d1
  874.  move.w d1,(a3)+
  875.  asr.w #1,d4
  876.  move.w d4,(a3)+
  877.  
  878.  add.w rightwallbright,d6
  879.  asr.w #1,d6
  880.  move.w d6,(a3)+
  881.  
  882.  move.l d2,(a3)+
  883.  move.w d3,(a3)+
  884.  move.w d5,(a3)+
  885.  move.w rightwallbright,(a3)+
  886.  
  887.  ; We now have the two endpoints and the midpoint
  888.  ; so we need to perform 1 iteration of the inner
  889.  ; loop, the first time.
  890.  
  891. * Decide how often to subdivide by how far away the wall is, and
  892. * how perp. it is to the player.
  893.  
  894.  move.l #databuffer,a0
  895.  move.l #databuffer2,a1
  896.  
  897.  move.w iters,d6
  898.  blt noiters
  899.  move.l #1,a2
  900.  
  901. iterloop:
  902.  move.l a0,a3
  903.  move.l a1,a4
  904.  move.w a2,d7
  905.  exg a0,a1
  906.  
  907.  move.l (a3)+,d0
  908.  move.w (a3)+,d1
  909.  move.l (a3)+,d2
  910. middleloop:
  911.  move.l d0,(a4)+
  912.  move.l (a3)+,d3
  913.  add.l d3,d0
  914.  move.w d1,(a4)+
  915.  asr.l #1,d0
  916.  move.w (a3)+,d4
  917.  add.w d4,d1
  918.  move.l d2,(a4)+
  919.  asr.w #1,d1
  920.  move.l (a3)+,d5
  921.  add.l d5,d2
  922.  move.l d0,(a4)+
  923.  asr.l #1,d2
  924.  move.w d1,(a4)+
  925.  move.l d2,(a4)+
  926.  
  927.  move.l d3,(a4)+
  928.  move.l (a3)+,d0
  929.  add.l d0,d3
  930.  
  931.  move.w d4,(a4)+
  932.  asr.l #1,d3
  933.  move.w (a3)+,d1
  934.  add.w d1,d4
  935.  move.l d5,(a4)+
  936.  asr.w #1,d4
  937.  move.l (a3)+,d2
  938.  add.l d2,d5
  939.  move.l d3,(a4)+
  940.  asr.l #1,d5
  941.  move.w d4,(a4)+
  942.  move.l d5,(a4)+
  943.  
  944.  
  945.  subq #1,d7
  946.  bgt.s middleloop
  947.  move.l d0,(a4)+
  948.  move.w d1,(a4)+
  949.  move.l d2,(a4)+
  950.  
  951.  add.w a2,a2
  952.  
  953.  dbra d6,iterloop
  954.  
  955. noiters:
  956.  
  957. CalcAndDraw:
  958.  
  959. ; CACHE_ON d2
  960.  
  961.  move.l a0,a1
  962.  move.w multcount,d7
  963. .findfirstinfront:
  964.  move.l (a1)+,d1
  965.  move.w (a1)+,d0
  966.  bgt.s .foundinfront
  967.  move.l (a1)+,d4
  968.  dbra d7,.findfirstinfront
  969.  rts    ; no two points were in front
  970.  
  971. .foundinfront:
  972.  move.w (a1)+,d4
  973.  move.w (a1)+,lbr
  974.  ; d1=left x, d4=left end, d0=left dist 
  975.  
  976.  divs d0,d1
  977.  add.w #47,d1
  978.  
  979.  move.l topofwall(pc),d5
  980.  divs d0,d5
  981.  add.w #40,d5
  982.  move.w d5,strtop
  983.  move.l botofwall(pc),d5
  984.  divs d0,d5
  985.  add.w #40,d5
  986.  move.w d5,strbot
  987.  
  988. .computeloop:
  989.  move.w 4(a1),d2
  990.  bgt.s .infront
  991.  rts
  992.  
  993. .infront:
  994.  move.l #store,a0
  995.  move.l (a1),d3
  996.  divs d2,d3
  997.  move.w 6(a1),d5
  998.  add.w #47,d3
  999.  move.w strtop(pc),12(a0)
  1000.  move.l topofwall(pc),d6
  1001.  divs d2,d6
  1002.  move.w strbot(pc),16(a0)
  1003.  add.w #40,d6
  1004.  move.w d6,strtop
  1005.  move.w d6,14(a0)
  1006.  move.l botofwall(pc),d6
  1007.  divs d2,d6
  1008.  add.w #41,d6
  1009.  move.w d6,strbot
  1010.  move.w d6,18(a0)
  1011.  move.w d3,2(a1)
  1012.  cmp.w leftclip(pc),d3
  1013.  blt.s .alloffleft
  1014.  cmp.w rightclip(pc),d1
  1015. ; cmp.w #95,d1
  1016.  bge.s .alloffright
  1017.  
  1018.  move.w d1,(a0)
  1019.  move.w d3,2(a0)
  1020.  move.w d4,4(a0)
  1021.  move.w d5,6(a0)
  1022.  move.w d0,8(a0)
  1023.  move.w d2,10(a0)
  1024.  
  1025.  move.w lbr,d5
  1026.  sub.w #300,d5
  1027.  ext.w d5
  1028.  move.w d5,24(a0)
  1029.  move.w 8(a1),d5
  1030.  sub.w #300,d5
  1031.  ext.w d5
  1032.  move.w d5,26(a0)
  1033.  
  1034.  movem.l d7/a1,-(a7)
  1035.  move.w #maxscrdiv,d7
  1036.  bsr Doleftend
  1037.  movem.l (a7)+,d7/a1
  1038.  
  1039. .alloffleft:
  1040.  
  1041.  move.l (a1)+,d1
  1042.  move.w (a1)+,d0
  1043.  move.w (a1)+,d4
  1044.  move.w (a1)+,lbr
  1045.  
  1046.  dbra d7,.computeloop
  1047.  rts
  1048.  
  1049. .alloffright:
  1050.  rts
  1051.  
  1052. lbr: dc.w 0
  1053. leftwallbright: dc.w 0
  1054. rightwallbright: dc.w 0
  1055. strtop: dc.w 0
  1056. strbot: dc.w 0
  1057.  
  1058. databuffer:
  1059.  ds.l 600
  1060. databuffer2:
  1061.  ds.l 600
  1062.  
  1063. ***********************************
  1064.  
  1065. * Need a routine which takes...?
  1066. * Top Y (3d)
  1067. * Bottom Y (3d)
  1068. * distance
  1069. * height of each tile (number and routine addr)
  1070. * And produces the appropriate strip on the
  1071. * screen.
  1072.  
  1073. topofwall: dc.l 0
  1074. botofwall: dc.l 0
  1075.  
  1076. nostripq:
  1077.  rts
  1078.  
  1079. ScreenWallstripdraw:
  1080.  
  1081.  move.w d4,d6
  1082.  cmp.w topclip(pc),d6
  1083.  blt.s nostripq
  1084.  cmp.w botclip(pc),d3
  1085.  bgt.s nostripq
  1086.  
  1087.  cmp.w botclip(pc),d6
  1088.  ble.s noclipbot
  1089.  move.w botclip(pc),d6
  1090. noclipbot:
  1091.  
  1092.  move.w d3,d5
  1093.  cmp.w topclip(pc),d5
  1094.  bge.s nocliptop
  1095.  move.w topclip(pc),d5
  1096. ; btst #0,d5
  1097. ; beq.s .nsbd
  1098. ; exg a2,a4
  1099. ;.nsbd:
  1100.  
  1101.  sub.w d5,d6    ; height to draw.
  1102.  ble.s nostripq
  1103.  
  1104.  bra gotoend
  1105.  
  1106. nocliptop:
  1107.  
  1108. ; btst #0,d5
  1109. ; beq.s .nsbd
  1110. ; exg a2,a4
  1111. ;.nsbd:
  1112.  
  1113.  sub.w d5,d6    ; height to draw.
  1114.  ble.s nostripq
  1115.  
  1116.  bra gotoend
  1117.  
  1118. wlcnt: dc.w 0
  1119.  
  1120. ; CNOP 0,4
  1121. ;drawwalldimPACK0:
  1122. ; and.w d7,d4
  1123. ; move.b 1(a5,d4.w*2),d1
  1124. ; and.b #31,d1
  1125. ; add.l d3,d4
  1126. ; move.w (a4,d1.w*2),(a3)
  1127. ; adda.w d0,a3
  1128. ; addx.w d2,d4
  1129. ; dbra d6,drawwallPACK0
  1130. ; rts
  1131.  
  1132.  CNOP 0,128 
  1133. drawwallPACK0:
  1134.  and.w d7,d4
  1135.  move.b 1(a5,d4.w*2),d1
  1136.  and.b #31,d1
  1137.  add.l d3,d4
  1138.  move.w (a2,d1.w*2),(a3)
  1139.  adda.w d0,a3
  1140.  addx.w d2,d4
  1141.  dbra d6,drawwallPACK0
  1142.  
  1143. nostrip:
  1144.  rts
  1145.  
  1146. ; CNOP 0,4
  1147. ;drawwalldimPACK1:
  1148. ; and.w d7,d4
  1149. ; move.w (a5,d4.w*2),d1
  1150. ; lsr.w #5,d1
  1151. ; and.w #31,d1
  1152. ; add.l d3,d4
  1153. ; move.w (a4,d1.w*2),(a3)
  1154. ; adda.w d0,a3
  1155. ; addx.w d2,d4
  1156. ; dbra d6,drawwallPACK1
  1157. ; rts
  1158.  
  1159.  CNOP 0,4 
  1160. drawwallPACK1:
  1161.  and.w d7,d4
  1162.  move.w (a5,d4.w*2),d1
  1163.  lsr.w #5,d1
  1164.  and.w #31,d1
  1165.  add.l d3,d4
  1166.  move.w (a2,d1.w*2),(a3)
  1167.  adda.w d0,a3
  1168.  addx.w d2,d4
  1169.  dbra d6,drawwallPACK1
  1170.  
  1171.  rts
  1172.  
  1173.  CNOP 0,4
  1174. ;drawwalldimPACK2:
  1175. ; and.w d7,d4
  1176. ; move.b (a5,d4.w*2),d1
  1177. ; lsr.b #2,d1
  1178. ; add.l d3,d4
  1179. ; move.w (a4,d1.w*2),(a3)
  1180. ; adda.w d0,a3
  1181. ; addx.w d2,d4
  1182. ; dbra d6,drawwallPACK2
  1183. ; rts
  1184.  
  1185.  CNOP 0,4 
  1186. drawwallPACK2:
  1187.  and.w d7,d4
  1188.  move.b (a5,d4.w*2),d1
  1189.  lsr.b #2,d1
  1190.  add.l d3,d4
  1191.  move.w (a2,d1.w*2),(a3)
  1192.  adda.w d0,a3
  1193.  addx.w d2,d4
  1194.  dbra d6,drawwallPACK2
  1195.  rts
  1196.  
  1197.  
  1198. usesimple:
  1199.  mulu d3,d4
  1200.  
  1201.  add.l d0,d4
  1202.  swap d4
  1203.  add.w totalyoff(pc),d4
  1204.  
  1205. cliptopusesimple
  1206.  move.w VALAND,d7
  1207.  move.w #104*4,d0
  1208.  moveq #0,d1
  1209. ; cmp.l a4,a2
  1210. ; blt.s usea2
  1211. ; move.l a4,a2
  1212. ;usea2:
  1213.  
  1214.  and.w d7,d4
  1215.  
  1216.  move.l d2,d5
  1217.  clr.w d5
  1218.  cmp.b #1,StripData+1
  1219.  dbge d6,simplewalliPACK0
  1220.  dbne d6,simplewalliPACK1
  1221.  dble d6,simplewalliPACK2
  1222.  rts
  1223.  
  1224.  CNOP 0,4
  1225. simplewalliPACK0:
  1226.  move.b 1(a5,d4.w*2),d1
  1227.  and.b #31,d1
  1228.  move.w (a2,d1.w*2),d3
  1229. simplewallPACK0:
  1230.  move.w d3,(a3)
  1231.  adda.w d0,a3
  1232.  add.l d2,d4
  1233.  bcc.s .noread
  1234.  addq #1,d4
  1235.  and.w d7,d4
  1236.  move.b 1(a5,d4.w*2),d1
  1237.  and.b #31,d1
  1238.  move.w (a2,d1.w*2),d3
  1239. .noread:
  1240.  dbra d6,simplewallPACK0
  1241.  rts
  1242.  
  1243.  CNOP 0,4
  1244. simplewalliPACK1:
  1245.  move.w (a5,d4.w*2),d1
  1246.  lsr.w #5,d1
  1247.  and.w #31,d1
  1248.  move.w (a2,d1.w*2),d3
  1249. simplewallPACK1:
  1250.  move.w d3,(a3)
  1251.  adda.w d0,a3
  1252.  add.l d5,d4
  1253.  bcc.s .noread
  1254.  addq #1,d4
  1255.  and.w d7,d4
  1256.  move.w (a5,d4.w*2),d1
  1257.  lsr.w #5,d1
  1258.  and.w #31,d1
  1259.  move.w (a2,d1.w*2),d3
  1260. .noread:
  1261.  dbra d6,simplewallPACK1
  1262.  rts
  1263.  
  1264.  CNOP 0,4
  1265. simplewalliPACK2:
  1266.  move.b (a5,d4.w*2),d1
  1267.  lsr.b #2,d1
  1268.  and.b #31,d1
  1269.  move.w (a2,d1.w*2),d3
  1270. simplewallPACK2:
  1271.  move.w d3,(a3)
  1272.  adda.w d0,a3
  1273.  add.l d5,d4
  1274.  bcc.s .noread
  1275.  addq #1,d4
  1276.  and.w d7,d4
  1277.  move.b (a5,d4.w*2),d1
  1278.  lsr.b #2,d1
  1279.  move.w (a2,d1.w*2),d3
  1280. .noread:
  1281.  dbra d6,simplewallPACK2
  1282.  rts
  1283.  
  1284. ;gotoendnomult:
  1285. ; movem.l d0/d1/d2/d3/d4/d7,-(a7)
  1286. ; add.l timeslarge(pc,d5.w*4),a3 
  1287. ; move.w d5,d4
  1288. ; move.l 4(a1,d2.w*8),d0
  1289. ; move.l (a1,d2.w*8),d2
  1290. ; moveq #0,d3
  1291. ; move.w d2,d3
  1292. ; swap d2
  1293. ; tst.w d2
  1294. ; move.w wallyoff(pc),d4
  1295. ; add.w #44,d4
  1296. ; bne.s .notsimple
  1297. ; cmp.l #$b000,d3
  1298. ; ble cliptopusesimple
  1299. ;.notsimple:
  1300. ; bra cliptop
  1301.  
  1302. gotoend:
  1303.  
  1304.  add.l timeslarge(pc,d5.w*4),a3 
  1305.  move.w d5,d4
  1306.  move.l 4(a1,d2.w*8),d0
  1307.  move.l (a1,d2.w*8),d2
  1308.  moveq #0,d3
  1309.  move.w d2,d3
  1310.  swap d2
  1311.  tst.w d2
  1312.  bne.s .notsimple
  1313.  cmp.l #$b000,d3
  1314.  ble usesimple
  1315. .notsimple:
  1316.  
  1317.  mulu d3,d4
  1318.  muls d2,d5
  1319.  add.l d0,d4
  1320.  swap d4
  1321.  add.w d5,d4
  1322.  add.w totalyoff(pc),d4
  1323. cliptop
  1324.  move.w VALAND,d7
  1325.  and.w d7,d4
  1326.  move.w #104*4,d0
  1327.  moveq #0,d1
  1328.  
  1329.  move.l d2,d3
  1330.  clr.w d3
  1331.  
  1332.  cmp.b #1,StripData+1
  1333.  dbge d6,drawwallPACK0
  1334.  dbne d6,drawwallPACK1
  1335.  dble d6,drawwallPACK2
  1336.  rts
  1337.  
  1338. timeslarge:
  1339.  
  1340. val SET 104*4
  1341.  REPT 80
  1342.  dc.l val
  1343. val SET val+104*4
  1344.  ENDR
  1345.  
  1346. nostripqthru:
  1347.  rts
  1348.  
  1349. ScreenWallstripdrawthru:
  1350.  
  1351.  move.w d4,d6
  1352.  cmp.w topclip(pc),d6
  1353.  blt.s nostripqthru
  1354.  cmp.w botclip(pc),d3
  1355.  bgt.s nostripqthru
  1356.  
  1357.  cmp.w botclip(pc),d6
  1358.  ble.s .noclipbot
  1359.  move.w botclip(pc),d6
  1360. .noclipbot:
  1361.  
  1362.  move.w d3,d5
  1363.  cmp.w topclip(pc),d5
  1364.  bge.s .nocliptop
  1365.  move.w topclip(pc),d5
  1366. ; btst #0,d5
  1367. ; beq.s .nsbd
  1368. ; exg a2,a4
  1369. ;.nsbd:
  1370.  
  1371.  sub.w d5,d6    ; height to draw.
  1372.  ble.s nostripqthru
  1373.  
  1374.  bra gotoendthru
  1375.  
  1376. .nocliptop:
  1377.  
  1378. ; btst #0,d5
  1379. ; beq.s .nsbdthru
  1380. ; exg a2,a4
  1381. ;.nsbdthru:
  1382.  
  1383.  sub.w d5,d6    ; height to draw.
  1384.  ble.s nostripqthru
  1385.  
  1386.  bra gotoendthru
  1387.  
  1388.  CNOP 0,4
  1389. drawwalldimthruPACK0:
  1390.  and.w d7,d4
  1391.  move.b 1(a5,d4.w*2),d1
  1392.  and.b #31,d1
  1393.  beq.s .holey
  1394.  move.w (a4,d1.w*2),(a3)
  1395. .holey:
  1396.  adda.w d0,a3
  1397.  add.l d3,d4
  1398.  addx.w d2,d4
  1399.  dbra d6,drawwallthruPACK0
  1400.  rts
  1401.  CNOP 0,4
  1402. drawwallthruPACK0:
  1403.  and.w d7,d4
  1404.  move.b 1(a5,d4.w*2),d1
  1405.  and.b #31,d1
  1406.  beq.s .holey
  1407.  move.w (a2,d1.w*2),(a3)
  1408. .holey:
  1409.  adda.w d0,a3
  1410.  add.l d3,d4
  1411.  addx.w d2,d4
  1412.  dbra d6,drawwalldimthruPACK0
  1413. nostripthru:
  1414.  rts
  1415.  
  1416.  CNOP 0,4
  1417. drawwalldimthruPACK1:
  1418.  and.w d7,d4
  1419.  move.w (a5,d4.w*2),d1
  1420.  lsr.w #5,d1
  1421.  and.w #31,d1
  1422.  beq.s .holey
  1423.  move.w (a4,d1.w*2),(a3)
  1424. .holey:
  1425.  adda.w d0,a3
  1426.  add.l d3,d4
  1427.  addx.w d2,d4
  1428.  dbra d6,drawwallthruPACK1
  1429.  rts
  1430.  CNOP 0,4
  1431. drawwallthruPACK1:
  1432.  and.w d7,d4
  1433.  move.w (a5,d4.w*2),d1
  1434.  lsr.w #5,d1
  1435.  and.w #31,d1
  1436.  beq.s .holey
  1437.  move.w (a2,d1.w*2),(a3)
  1438. .holey:
  1439.  adda.w d0,a3
  1440.  add.l d3,d4
  1441.  addx.w d2,d4
  1442.  dbra d6,drawwalldimthruPACK1
  1443.  rts
  1444.  
  1445.  CNOP 0,4
  1446. drawwalldimthruPACK2:
  1447.  and.w d7,d4
  1448.  move.b (a5,d4.w*2),d1
  1449.  lsr.b #2,d1
  1450.  and.b #31,d1
  1451.  beq.s .holey
  1452.  move.w (a4,d1.w*2),(a3)
  1453. .holey:
  1454.  adda.w d0,a3
  1455.  add.l d3,d4
  1456.  addx.w d2,d4
  1457.  dbra d6,drawwallthruPACK2
  1458.  rts
  1459.  CNOP 0,4
  1460. drawwallthruPACK2:
  1461.  and.w d7,d4
  1462.  move.b (a5,d4.w*2),d1
  1463.  lsr.b #2,d1
  1464.  and.b #31,d1
  1465.  beq.s .holey
  1466.  move.w (a2,d1.w*2),(a3)
  1467. .holey:
  1468.  adda.w d0,a3
  1469.  add.l d3,d4
  1470.  addx.w d2,d4
  1471.  dbra d6,drawwalldimthruPACK2
  1472.  rts
  1473.  
  1474.  
  1475. usesimplethru:
  1476.  mulu d3,d4
  1477.  
  1478.  add.l d0,d4
  1479.  swap d4
  1480.  add.w totalyoff(pc),d4
  1481.  
  1482. cliptopusesimplethru
  1483.  moveq #63,d7
  1484.  move.w #104*4,d0
  1485.  moveq #0,d1
  1486.  cmp.l a4,a2
  1487.  blt.s usea2thru
  1488.  move.l a4,a2
  1489. usea2thru:
  1490.  and.w d7,d4
  1491.  
  1492.  move.l d2,d5
  1493.  clr.w d5
  1494.  
  1495.  cmp.b #1,StripData+1
  1496.  dbge d6,simplewallthruiPACK0
  1497.  dbne d6,simplewallthruiPACK1
  1498.  dble d6,simplewallthruiPACK2
  1499.  rts
  1500.  
  1501.  CNOP 0,4
  1502. simplewallthruiPACK0:
  1503.  move.b 1(a5,d4.w*2),d1
  1504.  and.b #31,d1
  1505.  move.w (a2,d1.w*2),d3
  1506. simplewallthruPACK0:
  1507.  move.w d3,(a3)
  1508.  adda.w d0,a3
  1509.  add.l d5,d4
  1510.  bcc.s noreadthruPACK0
  1511. maybeholePACK0
  1512.  addx.w d2,d4
  1513.  and.w d7,d4
  1514.  move.b 1(a5,d4.w*2),d1
  1515.  and.b #31,d1
  1516.  beq.s holeysimplePACK0
  1517.  move.w (a2,d1.w*2),d3
  1518.  dbra d6,simplewallthruPACK0
  1519.  rts
  1520. noreadthruPACK0:
  1521.  addx.w d2,d4
  1522.  dbra d6,simplewallthruPACK0
  1523.  rts
  1524.  
  1525.  CNOP 0,4
  1526. simplewallholePACK0:
  1527.  adda.w d0,a3
  1528.  add.l d5,d4
  1529.  bcs.s maybeholePACK0
  1530.  addx.w d2,d4
  1531. holeysimplePACK0
  1532.  and.w d7,d4
  1533.  dbra d6,simplewallholePACK0
  1534.  rts
  1535.  
  1536.  CNOP 0,4
  1537. simplewallthruiPACK1:
  1538.  move.w (a5,d4.w*2),d1
  1539.  lsr.w #5,d1
  1540.  and.w #31,d1
  1541.  move.w (a2,d1.w*2),d3
  1542.  simplewallthruPACK1:
  1543.  move.w d3,(a3)
  1544.  adda.w d0,a3
  1545.  add.l d5,d4
  1546.  bcc.s noreadthruPACK1
  1547. maybeholePACK1
  1548.  addx.w d2,d4
  1549.  and.w d7,d4
  1550.  move.w (a5,d4.w*2),d1
  1551.  lsr.w #5,d1
  1552.  and.w #31,d1
  1553.  beq.s holeysimplePACK1
  1554.  move.w (a2,d1.w*2),d3
  1555.  dbra d6,simplewallthruPACK1
  1556.  rts
  1557. noreadthruPACK1:
  1558.  addx.w d2,d4
  1559.  dbra d6,simplewallthruPACK1
  1560.  rts
  1561.  
  1562.  CNOP 0,4
  1563. simplewallholePACK1:
  1564.  adda.w d0,a3
  1565.  add.l d5,d4
  1566.  bcs.s maybeholePACK1
  1567.  addx.w d5,d4
  1568. holeysimplePACK1
  1569.  and.w d7,d4
  1570.  dbra d6,simplewallholePACK1
  1571.  rts
  1572.  
  1573.  
  1574.  CNOP 0,4
  1575. simplewallthruiPACK2:
  1576.  move.b (a5,d4.w*2),d1
  1577.  lsr.b #2,d1
  1578.  and.b #31,d1
  1579.  move.w (a2,d1.w*2),d3
  1580. simplewallthruPACK2:
  1581.  move.w d3,(a3)
  1582.  adda.w d0,a3
  1583.  add.l d5,d4
  1584.  bcc.s noreadthruPACK2
  1585. maybeholePACK2
  1586.  addx.w d2,d4
  1587.  and.w d7,d4
  1588.  move.b (a5,d4.w*2),d1
  1589.  lsr.b #2,d1
  1590.  and.b #31,d1
  1591.  beq.s holeysimplePACK2
  1592.  move.w (a2,d1.w*2),d3
  1593.  dbra d6,simplewallthruPACK2
  1594.  rts
  1595. noreadthruPACK2:
  1596.  addx.w d2,d4
  1597.  dbra d6,simplewallthruPACK2
  1598.  rts
  1599.  
  1600.  CNOP 0,4
  1601. simplewallholePACK2
  1602.  adda.w d0,a3
  1603.  add.l d5,d4
  1604.  bcs.s maybeholePACK2
  1605.  addx.w d2,d4
  1606. holeysimplePACK2
  1607.  and.w d7,d4
  1608.  dbra d6,simplewallholePACK2
  1609.  rts
  1610.  
  1611.  
  1612. gotoendthru:
  1613.  add.l timeslargethru(pc,d5.w*4),a3 
  1614.  move.w d5,d4
  1615.  move.l 4(a1,d2.w*8),d0
  1616.  move.l (a1,d2.w*8),d2
  1617.  moveq #0,d3
  1618.  move.w d2,d3
  1619.  swap d2
  1620.  tst.w d2
  1621.  bne.s .notsimple
  1622.  cmp.l #$b000,d3
  1623.  ble usesimplethru
  1624. .notsimple:
  1625.  
  1626.  mulu d3,d4
  1627.  muls d2,d5
  1628.  add.l d0,d4
  1629.  swap d4
  1630.  add.w d5,d4
  1631.  add.w wallyoff(pc),d4
  1632. cliptopthru
  1633.  moveq #63,d7
  1634.  move.w #104*4,d0
  1635.  moveq #0,d1
  1636.  
  1637.  move.l d2,d3
  1638.  clr.w d3
  1639.  
  1640.  cmp.b #1,StripData+1
  1641.  dbge d6,drawwallthruPACK0
  1642.  dbne d6,drawwallthruPACK1
  1643.  dble d6,drawwallthruPACK2
  1644.  
  1645.  rts
  1646.  
  1647. timeslargethru:
  1648.  
  1649. val SET 104*4
  1650.  REPT 80
  1651.  dc.l val
  1652. val SET val+104*4
  1653.  ENDR
  1654.  
  1655. totalyoff: dc.w 0
  1656. wallyoff: dc.w 0
  1657.  
  1658. ******************************************
  1659. * Wall polygon
  1660. leftend: dc.w 0
  1661. wallbrightoff: dc.w 0
  1662.  
  1663. itsawalldraw:
  1664.  
  1665.  move.l #Rotated,a5
  1666.  move.l #OnScreen,a6
  1667.  
  1668.  move.w (a0)+,d0
  1669.  move.w (a0)+,d2
  1670.  move.w (a0)+,leftend
  1671.  move.w (a0)+,d5
  1672.  move.w (a0)+,d1
  1673.  asl.w #4,d1
  1674.  move.w d1,fromtile
  1675.  
  1676.  move.w (a0)+,d1
  1677.  move.w d1,totalyoff
  1678.  
  1679.  move.w (a0)+,d1
  1680.  move.l #walltiles,a3
  1681.  move.l (a3,d1.w*4),a3
  1682.  move.l a3,PaletteAddr
  1683.  add.l #64*32,a3
  1684.  move.l a3,ChunkAddr
  1685.  
  1686.  ;move.w (a0)+,d1
  1687.  ;add.w ZoneBright,d1
  1688.  move.w ZoneBright,angbright
  1689.  ;move.w (a0)+,d1
  1690.  ;move.w (a0)+,d4
  1691.  move.l yoff,d6
  1692.  
  1693.  move.b (a0)+,VALAND+1
  1694.  move.b (a0)+,VALSHIFT+1
  1695.  move.w (a0)+,HORAND
  1696.  
  1697.  move.w totalyoff,d1
  1698.  add.w wallyoff,d1
  1699.  and.w VALAND,d1
  1700.  move.w d1,totalyoff
  1701.  
  1702.  move.l (a0)+,topofwall
  1703.  sub.l d6,topofwall
  1704.  move.l (a0)+,botofwall
  1705.  sub.l d6,botofwall
  1706.  
  1707.  
  1708.  move.w (a0)+,wallbrightoff
  1709.  
  1710.  move.l topofwall,d3
  1711.  cmp.l botofwall,d3
  1712.  bge wallfacingaway
  1713.  
  1714.  
  1715.  tst.w 6(a5,d0*8)
  1716.  bgt.s cantell
  1717.  tst.w 6(a5,d2*8)
  1718.  ble wallfacingaway
  1719.  bra cliptotestfirstbehind
  1720. cantell:
  1721.  tst.w 6(a5,d2*8)
  1722.  ble.s cliptotestsecbehind
  1723.  bra pastclip
  1724. cliptotestfirstbehind:
  1725.  
  1726.  move.l (a5,d0*8),d3
  1727.  sub.l (a5,d2*8),d3
  1728.  move.w 6(a5,d0*8),d6
  1729.  sub.w 6(a5,d2*8),d6
  1730.  divs d6,d3
  1731.  muls 6(a5,d2*8),d3
  1732.  neg.l d3
  1733.  add.l (a5,d2*8),d3
  1734.  move.w (a6,d2*2),d6
  1735.  sub.w #47,d6
  1736.  ext.l d6
  1737.  cmp.l d6,d3
  1738.  bge wallfacingaway
  1739.  bra cant_tell
  1740.  bra pastclip
  1741.  
  1742. cliptotestsecbehind:
  1743.  
  1744.  move.l (a5,d2*8),d3
  1745.  sub.l (a5,d0*8),d3
  1746.  move.w 6(a5,d2*8),d6
  1747.  sub.w 6(a5,d0*8),d6
  1748.  divs d6,d3
  1749.  muls 6(a5,d0*8),d3
  1750.  neg.l d3
  1751.  add.l (a5,d0*8),d3
  1752.  move.w (a6,d0*2),d6
  1753.  sub.w #47,d6
  1754.  ext.l d6
  1755.  cmp.l d6,d3
  1756.  ble wallfacingaway
  1757.  bra cant_tell
  1758.  
  1759. pastclip:
  1760.  
  1761.  move.w (a6,d0*2),d3
  1762.  cmp.w #95,d3
  1763.  bgt wallfacingaway
  1764.  cmp.w (a6,d2*2),d3
  1765.  bge wallfacingaway
  1766.  tst.w (a6,d2*2)
  1767.  blt.s wallfacingaway
  1768.  
  1769. cant_tell:
  1770.  
  1771. ; move.l a1,a4
  1772. ; move.w #31,d6
  1773. ; move.l #0,d3
  1774. ;.emptylop:
  1775. ; move.l d3,(a4)+
  1776. ; dbra d6,.emptylop
  1777.  
  1778. ; move.w rightclip(pc),d6
  1779. ; st (a1,d6)
  1780. ; move.w leftclip(pc),d6
  1781. ; st -1(a1,d6)
  1782.  
  1783. ; muls sinval(pc),d1
  1784. ; muls cosval(pc),d4
  1785. ; add.l d1,d4
  1786. ; add.l d4,d4
  1787. ; swap d4
  1788. ; neg.w d4
  1789. ; move.w d4,d6
  1790. ; asr.w #1,d4
  1791. ; sub.w d4,angbright
  1792. ; and.b #$fe,d4
  1793. ; asl.w #2,d4
  1794. ; asl.w #2,d6
  1795.  
  1796.  movem.l d7/a0/a5/a6,-(a7)
  1797.  move.l (a5,d0*8),a0
  1798.  move.w 6(a5,d0*8),d1
  1799.  move.l (a5,d2*8),a2
  1800.  move.w 6(a5,d2*8),d3
  1801.  
  1802.  move.l PointBrightsPtr,a5
  1803.  move.w (a5,d0.w*4),d0
  1804.  add.w #300,d0
  1805.  add.w wallbrightoff,d0
  1806.  move.w d0,leftwallbright
  1807.  move.w (a5,d2.w*4),d0
  1808.  add.w #300,d0
  1809.  add.w wallbrightoff,d0
  1810.  move.w d0,rightwallbright
  1811.  
  1812.  move.w leftend(pc),d4
  1813.  move.l #max3ddiv,d7
  1814.  bsr walldraw
  1815.  movem.l (a7)+,d7/a0/a5/a6
  1816.  
  1817. wallfacingaway:
  1818.  
  1819.  rts
  1820.  
  1821. PointBrightsPtr: dc.l 0
  1822. midpt: dc.l 0
  1823. dist1: dc.l 0
  1824. dist2: dc.l 0
  1825. VALAND: dc.w 0
  1826. VALSHIFT: dc.w 0
  1827. HORAND: dc.w 0
  1828.  
  1829. sinval: dc.w 0
  1830. cosval: dc.w 0
  1831.  
  1832. oldxoff: dc.w 0
  1833. oldzoff: dc.w 0
  1834.  
  1835. topclip: dc.w 0
  1836. botclip: dc.w 0
  1837. seethru: dc.w 0
  1838.